home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / bach1.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  916 b   |  32 lines
  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transpose by ,...
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print "    J.S. Bach"
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 99
  11. read a
  12. read b
  13. if b=999 then goto 2000
  14. if a=999 then goto 2000
  15. c =b/6 'change "6" for tempo
  16. sound a,c
  17. next I
  18. 'Main section
  19. 400data 52,25,54,25,56,25,41,25,57,25,57,25,60,25,41,25,
  20. 500data 41,25,62,25,14,25,62,25,41,25,56,25,52,25,54,25,
  21. 600data 56,25,57,25,41,25,60,25,41,25,57,25,56,25,54,25,
  22. 700data 56,25,52,25
  23. 'second line
  24. 800data 51,25,52,25,54,25,41,25,51,25,54,25,57,25,56,25,54,25,
  25. 900data 56,25,52,25,54,25,56,25,41,25,57,25,57,25,60,25,41,25,
  26. 1100data 41,25,62,25,14,25,62,25,41,25,56,25,52,25,54,25,56,25
  27. 'third line
  28. 1200data 49,25,41,25,57,25,56,25,54,25,52,25,41,25,52,25,51,25,
  29. 1300data 52,25,56,25,41,25,62,25,41,25,56,25,52,25,56,25,41,25,62,200
  30. 1500data 999,999
  31. 2000 if isrun then run "menu" else system
  32. ə